home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / 48asmdbg.zip / LABELS.H < prev    next >
Text File  |  1992-04-09  |  1KB  |  47 lines

  1.  
  2. cls();
  3. bos();
  4. goto start_prg;
  5.  
  6. jmp_at_a: tmp[1] = a[1];
  7.     return_flag = 0;
  8.     goto jump_mem;
  9.  
  10. jmp_at_c: tmp[1] = c[1];
  11.     return_flag = 0;
  12.     goto jump_mem;
  13.  
  14. jump_mem:
  15.  
  16.   switch (tmp[1]&mask_a[1])
  17.   {
  18.     case RPL:
  19.       {
  20.         printf("programme returned to RPL\n");
  21.         if (p) printf("%%%WARNING%%% you have not set p to 0,%c\n",7);
  22.         if (b[1] != b_init) printf("%%%WARNING%%% you have not restored 
  23. b,%c\n",
  24. 7);
  25.         if (d0[1] != d0_init + 5) printf("%%%WARNING%%% you have not 
  26. restored d0
  27. ,%c\n",7);
  28.         if (d1[1] != d1_init + (d[1]-d_init)*5) printf("%%%WARNING%%% d1 
  29. and d a
  30. re no longer consistent,%c\n",7);
  31.         break;
  32.       }
  33.     default:         printf("programme jumped to memory location 
  34. %5x\n",tmp[1] &
  35.  mask_a[1]);
  36.   }
  37.   if (!return_flag) exit(0);
  38.   else printf("%%%WARNING%%% programme continuing without executing 
  39. routine at%5
  40. x%c\n",tmp[1] & mask_a[1],7);
  41.  
  42. start_prg:
  43.  
  44. /* ------------------------------------------------------------------------- 
  45.  
  46.  
  47.